home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / ledge.scp < prev    next >
Text File  |  1994-11-22  |  8KB  |  333 lines
  1.  
  2. { SHIP_GO
  3.     I  ^çô              AND ^çö            = $Ç╗    THEN
  4.         {
  5.         O     $Ǫ              
  6.         A  OFF
  7.         ^çö            = $Ç╝  
  8.         M      STAND CONTINUE
  9.                     @Ç║       `âù                 $Ç╜      "What a disappointment you are!"  //@@@ PLEASE TRANSLATE
  10.                     @Ç║       `âÿ                 $Ç╜      "Just one more failed experiment."    //@@@ PLEASE TRANSLATE
  11.                     @Ç║       `âÖ                 $Ç╜      "When the reactor goes critical you,~and this entire base, will be disposed of."       //@@@ PLEASE TRANSLATE
  12.                     @Ç║       `âÜ                 $Ç╜      "And soon I shall begin my work again~on my next test subject..."     //@@@ PLEASE TRANSLATE
  13.                     @Ç║       `åî                 $Ç╜      " ...your friend Doctor Escher."     //@@@ PLEASE TRANSLATE
  14.                     @Ç║       `åì                 $Ç╜      "Farewell!"     //@@@ PLEASE TRANSLATE
  15.  
  16.         @Ç¥   ANI_SHIP_TAKES_OFF
  17.         O     $ÇÇ        
  18.         O     $Çá     
  19.  
  20.                     @Ç║       `å╗         $Ç╜      "Attention all remaining units."    //@@@ PLEASE TRANSLATE
  21.                     @Ç║       `å╝         $Ç╜      "The primary target has~reached the Landing Platform."    //@@@ PLEASE TRANSLATE
  22.                     @Ç║       `å╜         $Ç╜      "Eliminate the target and we will~return for you if time permits."    //@@@ PLEASE TRANSLATE
  23.                     @Ç║       `êû         $Ç╜      "Unit 5 to unit 11: You still with me?"    //@@@ PLEASE TRANSLATE
  24.                     @Ç║       `ê╡         $Ç╜      "Check, unit 5.  Did you get all that."    //@@@ PLEASE TRANSLATE
  25.         A  ON
  26.                     @Ç║       `êù         $Ç╜      "Damn right!  That metal freak ~scared away our dropship."    //@@@ PLEASE TRANSLATE
  27.                     @Ç║       `ê╢         $Ç╜      "I'm heading out to the LandPad to~take him out. We're on the clock."    //@@@ PLEASE TRANSLATE
  28.         @Ç║       `êÿ         $Ç╜      "Right behind you unit 11. Lock and load."    //@@@ PLEASE TRANSLATE
  29.         W    2 SECONDS
  30.         i           LEX MGONE
  31.         }
  32. }
  33.  
  34. // IF THE REACTOR HASN'T BEEN SHUT DOWN YET, KNOCK LEX OFF THE LEDGE
  35. { QUAKER
  36.     P        ~ÇÇ    
  37.  
  38.     I  ^磠          = $Ç╗    THEN
  39.         {
  40.         A  OFF
  41.         @Çì      QUAKE 8 255 4
  42.         â      
  43.         W    40
  44.         M      QUAKE_START
  45.         M      QUAKE CONTINUE
  46.         // GRADUALLY MOVE LEX CLOSER TO THE EDGE
  47.         :TOP
  48.         â      
  49.         â      
  50.         I  @Çü    (CURFIG) < 110 THEN
  51.             {
  52.             ~ÇÇ     = @Çü    (CURFIG) + 1
  53.             G  ~ÇÇ     @Çé    (CURFIG) @Çâ    (CURFIG)
  54.             J    #Çé
  55.             }
  56.         @Çì      KNOCKFIGUREOFFLEDGE
  57.         }
  58. }
  59.  
  60. [ ANI_ACID
  61.     :TOP
  62.     00:00 ^颠        = 0
  63.     00:03 ^颠        = 1
  64.     00:06 ^颠        = 2
  65.     00:09 ò            
  66.           J    #Çä
  67. ]
  68.  
  69.  
  70. { FALLACID
  71.     //SUSPENDWHILE @SUBTITLE(_BLK_ZAPGUY 255 1024 "Aaaaieee!")
  72.     @Çì      ANI_ACID
  73.  
  74.     // CAMERA MAY HAVE BEEN LOCKED
  75.     C      UNLOCK
  76.  
  77.     £    180
  78.     G  MELT
  79.     ñ            CURFIG
  80.     A  OFF
  81.     u          CURFIG OFF
  82.     Z       CURFIG OFF
  83.     M      DROWN 150 CONTINUE
  84.     W    5
  85.     @Çå   (`Ç¢        ,150)
  86.     W    1 SECOND
  87.     @Çå    `ä½          
  88.     //WAIT 3 SECONDS
  89.     //CAPTION "you are dead /FTu es mort /GDu bist tot!"
  90.     â      
  91.     //DAMAGE 6000 IMPACT
  92.     O     $Çà     
  93.     @Ç¥   KILLLEX
  94.  
  95.     //CAPTION "You have died in the acid below" CONTINUE
  96.     //DAMAGE 666 IMPACT
  97. }
  98.  
  99. { HAVESHIPFIREONUS
  100.     : TOP
  101.     @Ç¥   ANI_SHIP_FIRES_AT_US
  102.     //WAIT 3.5 SECONDS
  103.     W    105
  104.     I  @ÇÄ             (PAD3) THEN J    #Çç
  105. }
  106.  
  107. { DROPSHIPFIREONLEX
  108.     P        ~ÇÇ   
  109.     P        ~Çü   
  110.     P        ~Çé   
  111.  
  112.     ~ÇÇ    = @Çü    (CURFIG)
  113.     ~Çü    = @Çé    (CURFIG)
  114.     ~Çé    = @Çâ    (CURFIG)        // -102
  115.  
  116.     // IF WE'RE WALKING, ADJUST WHERE WE FIRE
  117.     I  @Çô        (WALK) THEN
  118.         {
  119.         // IF WE'RE MOSTLY MOVING TOWARDS THE LANDING PAD...
  120.         I  @Çä     () < 120 OR @Çä     () > 120 THEN
  121.             {
  122.             ~Çü    += 20
  123.             }
  124.  
  125.         // IF WE'RE MOSTLY MOVING AWAY FROM THE LANDING PAD...
  126.         E    I  @Çä     () IN -60,60 THEN
  127.             {
  128.             ~Çü    -= 20
  129.             }
  130.         }
  131.  
  132.     E    I  @Çô        (WALK_DMG1) THEN
  133.         {
  134.         // IF WE'RE MOSTLY MOVING TOWARDS THE LANDING PAD...
  135.         I  @Çä     () < 120 OR @Çä     () > 120 THEN
  136.             {
  137.             ~Çü    += 25
  138.             }
  139.  
  140.         // IF WE'RE MOSTLY MOVING AWAY FROM THE LANDING PAD...
  141.         E    I  @Çä     () IN -60,60 THEN
  142.             {
  143.             ~Çü    -= 25
  144.             }
  145.         }
  146.  
  147.     E    I  @Çô        (WALK_DMG2) THEN
  148.         {
  149.         // IF WE'RE MOSTLY MOVING TOWARDS THE LANDING PAD...
  150.         I  @Çä     () < 120 OR @Çä     () > 120 THEN
  151.             {
  152.             ~Çü    += 25
  153.             }
  154.  
  155.         // IF WE'RE MOSTLY MOVING AWAY FROM THE LANDING PAD...
  156.         E    I  @Çä     () IN -60,60 THEN
  157.             {
  158.             ~Çü    -= 25
  159.             }
  160.         }
  161.  
  162.     E    I  @Çô        (WALK_BACK) THEN
  163.         {
  164.         // IF WE'RE MOSTLY MOVING TOWARDS THE LANDING PAD...
  165.         I  @Çä     () < -120 OR @Çä     () > 120 THEN
  166.             ~Çü    -= 20
  167.  
  168.         // IF WE'RE MOSTLY MOVING AWAY FROM THE LANDING PAD...
  169.         E    I  @Çä     () IN -60,60 THEN
  170.             ~Çü    += 20
  171.         }
  172.  
  173.     E    I  @Çô        (RUN) THEN
  174.         {
  175.         // IF WE'RE MOSTLY MOVING TOWARDS THE LANDING PAD...
  176.         I  @Çä     () < -120 OR @Çä     () > 120 THEN
  177.             ~Çü    += 45
  178.  
  179.         // IF WE'RE MOSTLY MOVING AWAY FROM THE LANDING PAD...
  180.         E    I  @Çä     () IN -60,60 THEN
  181.             ~Çü    -= 45
  182.         }
  183.  
  184.   @Çå    `ô╕           100
  185.   @Ç╢   BOLTORNG LT_BOLT AT ~ÇÇ   ,~Çü   ,~Çé    18
  186.   @Ç╢   BOLTORNG RT_BOLT AT ~ÇÇ   ,~Çü   ,~Çé    18
  187. }
  188.  
  189.  
  190. // ANIMATIONS FOR THE LEDGE SEQUENCE -BES
  191. [ ANI_SHIP_FIRES_AT_US
  192.     I  .ÇâÇÇ        <= 0 THEN é     
  193.     I  ^üû        == 12 THEN
  194.         {
  195.         00:02 ^üû        = 13
  196.         00:04 ^üû        = 14
  197.               @Ç¥   DROPSHIPFIREONLEX
  198.         00:06 ^üû        = 15
  199.         00:10 ^üû        = 12
  200.         }
  201.     E   
  202.         {
  203.         00:02 ^üû        = 1
  204.         00:04 ^üû        = 2
  205.         00:06 ^üû        = 3
  206.         00:08 ^üû        = 4
  207.         00:10 ^üû        = 5
  208.         00:12 ^üû        = 6
  209.         00:14 ^üû        = 7
  210.         00:16 ^üû        = 8
  211.         00:18 ^üû        = 9
  212.         00:20 ^üû        = 10
  213.         00:22 ^üû        = 11
  214.         00:24 ^üû        = 12
  215.         00:26 ^üû        = 13
  216.         00:28 ^üû        = 14
  217.               @Ç¥   DROPSHIPFIREONLEX
  218.         01:00 ^üû        = 15
  219.         01:04 ^üû        = 12
  220.         }
  221. ]
  222.  
  223. [ ANI_SHIP_TAKES_OFF
  224.     00:00   ^â│         = 1
  225.             ^üû         = 0
  226.             ^çö            = $Ç╝  
  227.             C      PAD3
  228.     00:03   ^â│         = 2
  229.         @Çå   (`åÜ            )
  230.     00:06   ^â│         = 3
  231.     00:09   ^â│         = 4
  232.     00:12   ^â│         = 5
  233.     00:15   ^â│         = 6
  234.     00:18   ^â│         = 7
  235.     00:21   ^â│         = 8
  236.     00:14   ^â│         = 9
  237.     00:27   ^â│         = 0
  238.             @Çè               ( ^â╡        , +1, 1, 46, 3 )
  239.             ^â┤         = 0
  240.     05:00   @Çå   (`墠           )
  241.     05:15   ^â╡         = 0
  242.             C      UNLOCK
  243. ]
  244.  
  245. { BOLTORNG_HIT
  246.     @Çå   ( `ÇÑ         )
  247.     ú             ( BOOM, YELLOWA, CURITEM )
  248.     I  .ÇéÇÇ        > 0
  249.         {
  250.         @Çå    `Çë        
  251.         @Ç¥   KNOCKFIGUREOFFLEDGE
  252.         }
  253. }
  254.  
  255. { BOLTORNG_HIT_WALL
  256.     @Çå   ( `ÇÑ         )
  257.     ú             ( BOOM, YELLOWA, CURITEM )
  258.     I  @Ç¢              (PLAYER) THEN
  259.         {
  260.         // THE PLAYER IS HIT IF WITHIN A METER
  261.         I  @üü          () < 200 AND .ÇâÇÇ        > 0 THEN
  262.             {
  263.             @Çå    `Çë         LEX
  264.             @Ç¥   KNOCKFIGUREOFFLEDGE
  265.             }
  266.         }
  267.  
  268.     // KNOCK THE MARINE OFF THE LEDGE - LRG
  269.  
  270.     I ( ^çô              = $Ç╗    ) THEN
  271.         é     
  272.     I ( ^î¼             = $Ç╗    ) THEN
  273.         é     
  274.  
  275.     @Ç¢              (MARINE3B)
  276.     // THE PLAYER IS HIT IF WITHIN A METER
  277.     I  @üü          () < 200 THEN
  278.         {
  279.         @Çå    `Çë        
  280.         @Ç¥   KNOCKFIGUREOFFLEDGE
  281.         }
  282. }
  283.  
  284. { BOLTORNG_HIT_LEX
  285.     @Çå   ( `ÇÑ         )
  286.     ú             ( BOOM, YELLOWA, CURITEM )
  287.  
  288.     I  .ÇéÇÇ        > 0 THEN
  289.         {
  290.         @Çå    `Çë         LEX
  291.         @Ç¥   KNOCKFIGUREOFFLEDGE
  292.         }
  293. }
  294.  
  295. { BOLTORNG_HIT_MARINE3B
  296.     @Çå   ( `ÇÑ         )
  297.     ú             ( BOOM, YELLOWA, CURITEM )
  298.  
  299.     @Çå    `Çë        
  300.     @Ç¥   KNOCKFIGUREOFFLEDGE
  301. }
  302.  
  303. { KNOCKFIGUREOFFLEDGE
  304.     A  OFF
  305.     // TELEPORT THE FIGURE TO THE EDGE OF THE LEDGE
  306.     G  110 @Çé    (CURFIG) @Çâ    (CURFIG)
  307.  
  308.     // HAVE HIM RECOIL OFF THE LEDGE
  309.     I  @Çä     () IN -45,45 THEN
  310.         {
  311.         £    0
  312.         M      FALL_LEFT
  313.         }
  314.     E    I  @Çä     () IN 45,135 THEN
  315.         {
  316.         £    90
  317.         M      FALL_BACKWARD
  318.         }
  319.     E    I  @Çä     () IN -135,-45 THEN
  320.         {
  321.         £    -90
  322.         M      KNOCKED_FORWARD
  323.         }
  324.     E   
  325.         {
  326.         £    -180
  327.         M      FALL_RIGHT
  328.         }
  329. }
  330.  
  331.  
  332. //$ 26 - version number
  333.